home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update28.zoo / lib / diffc < prev    next >
Encoding:
Text File  |  1993-02-22  |  52.3 KB  |  2,297 lines
  1. ===================================================================
  2. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/Changelo,v
  3. retrieving revision 1.86
  4. diff -c -r1.86 Changelo
  5. *** 1.86    1992/12/28 07:52:43
  6. --- Changelo    1993/02/22 17:57:37
  7. ***************
  8. *** 3474,3476 ****
  9. --- 3474,3620 ----
  10.           wait.h (WSTOPPED): use expected value
  11.   
  12.   ---------------------------- Patchlevel 86 ---------------------------
  13. + 
  14. + _cmpsf2.s _divsf3.cpp _extends.cpp _mulsf3.cpp
  15. + _negsf2.s _normsf.cpp : olaf
  16. +     completed impl of NaN and infinities, even for floats.
  17. +     thanks olaf!
  18. + 
  19. + atof.c, doprnt.c:: andreas
  20. +     I have implemented improved floating point formatting/scanning
  21. +     routines for the mc68881. They use the builtin packed decimal
  22. +     format, which gives a precision of 17 decimal digits. Formatted and
  23. +     rescanned numbers now give identical results, and enquire reports no
  24. +     problems anymore.
  25. + 
  26. + string.h:: ++jrb
  27. +     add parens to shut up gcc.
  28. + 
  29. + doprnt.c:: Howard Chu
  30. +     The patch to doprnt makes it less vulnerable to crashing when handed
  31. +     a large floating point value. (Took me a while to figure out why I was
  32. +     crashing, around address 0x30303030!  }-)  Basically, my math routine
  33. +     returned a value like 0x7ff12345 0x60000000 which is larger than INF
  34. +     but less than NaN. The check I put in makes it print this range of
  35. +     numbers as NaN or -NaN, which is what the Sun C library does.
  36. + 
  37. + falcon.h: ++entropy
  38. +     Protected against multiple #include's.
  39. + 
  40. + string.h: ++entropy
  41. +     Added some parens to appease gcc -Wall with gcc 2.3.1.
  42. + 
  43. + getuid.c: ++boender@dutiws.twi.tudelft.nl, ++entropy
  44. +     Only negative returns from Psetuid() and Psetgid() indicate
  45. +     an error.  Positive returns indicate success (the PID is
  46. +     returned from the OS).  Modified getuid() and setgid() accordingly.
  47. + 
  48. + a64l.c: ++boender@dutiws.twi.tudelft.nl
  49. +     NEW module for conversion between longs and base-64 ASCII strings.
  50. + 
  51. + a64l.c: ++entropy
  52. +     Use __PROTO, use compiler.h, etc.
  53. + 
  54. + support.h: ++entropy
  55. +     Added prototypes for a64l(), l64a().
  56. + 
  57. + support.h: ++boender@dutiws.twi.tudelft.nl, ++entropy
  58. +     Fixed prototype for link().  Removed protoype for isatty()
  59. +     (it exists in unistd.h)
  60. + 
  61. + limits.h: ++entropy
  62. +     Added #define PASS_MAX 8.
  63. + 
  64. + getpass.c: ++entropy
  65. +     Fixed to use PASS_MAX, fixed off-by-one-error (was writing past end
  66. +     of static buf, very bad news).  Removed some small kludges.
  67. + 
  68. + fflush.c: ++boender@dutiws.twi.tudelft.nl, ++entropy
  69. +     Return EOF instead of 0 for files that aren't open.
  70. + 
  71. + mincl: ++jrb
  72. +     add new target for a64l.o
  73. + 
  74. + alloca.s, bcopy.s: ++dsb@cs.duke.edu
  75. +     RENAME to alloca.cpp, bcopy.cpp so we can do conditional compilation.
  76. + 
  77. + alloca.cpp, bcopy.cpp, bzero.cpp: ++dsb
  78. +     Changes for HSC.
  79. + 
  80. + mincl:
  81. +     Account for the name changes.
  82. + 
  83. + compiler.h: ++dsb
  84. +     Rearrange the __SOZOBONC__ #defines, fix a typo.
  85. + 
  86. + ctime.c, fscanf.c, sscanf.c: ++dsb
  87. +     Make compatible with HSC.
  88. + 
  89. + compiler.h: ++hohmuth
  90. +     define __TCC_GEMLIB__ when used with Pure/Turbo C
  91. + 
  92. + aesbind.h, gemfast.h: ++hohmuth
  93. +     Make it useable with Pure's GEM library.  The special declarations
  94. +     in aesbind.h check for __TCC_GEMLIB__.  Improved compatibility with
  95. +     Turbo's GEM declarations when __TCC_COMPAT__ is defined.
  96. + 
  97. + osbind.h: ++hohmuth
  98. +     Fix typos, add macros for sloppier type checking when used with 
  99. +     Pure C.
  100. + 
  101. + strupr.c: ++hohmuth
  102. +     NEW file:  add library call strupr().
  103. + 
  104. + string.h: ++hohmuth
  105. +     Add declaration of strupr().
  106. + 
  107. + mincl, lattice/mincl.lcc, purec/mintlib.prj, sozobon/makefile:
  108. +     Add strupr.c.
  109. + 
  110. + doprnt.c: ++Ulf_Moeller@hh2.maus.de
  111. +     Fix up the ARG macro (which tends to produce wrong results with Pure
  112. +     C (which uses a type conversion scheme within ?: that differs from
  113. +     GCC)).
  114. + 
  115. + regexp.c: ++hohmuth
  116. +     Make it Turbo/PureC-proof.
  117. + 
  118. + ctime.c: ++hohmuth
  119. + 
  120. + falcon.h: ++hyc@hanauma.jpl.nasa.gov
  121. +     Remove superfluous equals sign in enum declaration.
  122. + 
  123. + fread.c: ++ulf
  124. +     Fix return value for text mode.
  125. + 
  126. + times.c, times.h: ++ulf
  127. +     Use long return value instead of int.  This allows larger values
  128. +     and agrees with the SysV man page. Returns realtime since epoch
  129. +     like sysV (rather than 0,1,-1 like bsd as it previously did)
  130. + 
  131. + strlwr/strupr.c:: ++jrb
  132. +     bulletproof a little.
  133. + 
  134. + a64l.c: ++boender@dutiws.twi.tudelft.nl
  135. +     Add to comments a note that prototypes are in support.h.
  136. + 
  137. + getpass.c:
  138. +     Read password from /dev/tty, instead of stdin, if MiNT is active.
  139. + 
  140. + support.h:
  141. +     Functions link(), symlink() now take "const char *" instead of
  142. +     "char *" parmeters.
  143. + 
  144. + access.c: ++boender, ++entropy
  145. +     Use real, not effective, user id's for access() checks.
  146. +     Fix so access() always returns success on existing files if real
  147. +     user id is 0 (root), regardless of file mode.
  148. + 
  149. + mintbind.h:
  150. +     Add new GEMDOS functions (macros) Dgetcwd() and Salert().
  151. + 
  152. + errno.h: ++boender
  153. +     Define ENODEV as alias for EUKDEV/EUNDEV.
  154. + 
  155. + 
  156. + ---------------------------- Patchlevel 87 ---------------------------
  157. ===================================================================
  158. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/PatchLev.h,v
  159. retrieving revision 1.62
  160. diff -c -r1.62 PatchLev.h
  161. *** 1.62    1992/12/28 07:52:46
  162. --- PatchLev.h    1993/02/17 23:57:55
  163. ***************
  164. *** 1,5 ****
  165.   
  166. ! #define    PatchLevel "86"
  167.   
  168.   /*
  169.    *
  170. --- 1,5 ----
  171.   
  172. ! #define    PatchLevel "87"
  173.   
  174.   /*
  175.    *
  176. ===================================================================
  177. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/mincl,v
  178. retrieving revision 1.24
  179. diff -c -r1.24 mincl
  180. *** 1.24    1992/12/28 07:52:50
  181. --- mincl    1993/02/17 23:58:01
  182. ***************
  183. *** 34,42 ****
  184.   
  185.   #
  186.   # other portable stuff
  187. ! PORT =  alphasor.o abs.o catch.o dirent.o findfile.o ftw.o getpw.o \
  188.       getlogin.o getopt.o getpass.o ident.o mktemp.o scandir.o strlwr.o \
  189. !     strrev.o regexp.o regsup.o textio.o random.o obstack.o \
  190.       il.o ic.o iw.o ig.o ip.o frwbin.o
  191.   #
  192.   # the string library
  193. --- 34,42 ----
  194.   
  195.   #
  196.   # other portable stuff
  197. ! PORT =  a64l.o alphasor.o abs.o catch.o dirent.o findfile.o ftw.o getpw.o \
  198.       getlogin.o getopt.o getpass.o ident.o mktemp.o scandir.o strlwr.o \
  199. !     strrev.o strupr.o regexp.o regsup.o textio.o random.o obstack.o \
  200.       il.o ic.o iw.o ig.o ip.o frwbin.o
  201.   #
  202.   # the string library
  203. ***************
  204. *** 106,112 ****
  205.   
  206.   
  207.   # other dependencies
  208. - bcopy.o : bcopy.s
  209.   atof.o  : flonum.h
  210.   
  211.   #
  212. --- 106,111 ----
  213. ===================================================================
  214. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/times.c,v
  215. retrieving revision 1.3
  216. diff -c -r1.3 times.c
  217. *** 1.3    1990/03/09 03:28:00
  218. --- times.c    1993/02/17 23:58:04
  219. ***************
  220. *** 5,18 ****
  221.   extern clock_t    _sys_runtime;
  222.   extern clock_t    _child_runtime;
  223.   
  224. ! int
  225.   times(struct tms *buffer)
  226.   {
  227. !     if (!buffer) return 1;
  228. !     buffer->tms_cutime = (time_t) (_child_runtime * HZ / CLK_TCK);
  229. !     buffer->tms_cstime = (time_t) 0;
  230. !     buffer->tms_stime = (time_t) (_sys_runtime * HZ / CLK_TCK);
  231. !     buffer->tms_utime = (time_t)
  232. !         ((clock() - _sys_runtime - _child_runtime) * HZ / CLK_TCK);
  233. !     return 0;
  234.   }
  235. --- 5,22 ----
  236.   extern clock_t    _sys_runtime;
  237.   extern clock_t    _child_runtime;
  238.   
  239. ! long
  240.   times(struct tms *buffer)
  241.   {
  242. !     long real_time = clock();
  243. ! 
  244. !     if (!buffer)
  245. !     return -1L;
  246. ! 
  247. !     buffer->tms_cutime = (time_t) (_child_runtime * HZ / CLK_TCK);
  248. !     buffer->tms_cstime = (time_t) 0;
  249. !     buffer->tms_stime = (time_t) (_sys_runtime * HZ / CLK_TCK);
  250. !     buffer->tms_utime = (time_t)
  251. !         ((real_time - _sys_runtime - _child_runtime) * HZ / CLK_TCK);
  252. !     return real_time;
  253.   }
  254. ===================================================================
  255. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_cmpsf2.s,v
  256. retrieving revision 1.3
  257. diff -c -r1.3 _cmpsf2.s
  258. *** 1.3    1992/10/09 20:35:29
  259. --- _cmpsf2.s    1993/01/13 14:30:36
  260. ***************
  261. *** 1,49 ****
  262.   | single floating point compare routine
  263.   |
  264. ! | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  265. ! | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  266.   |
  267. - |
  268. - | Revision 1.1, kub 12-89 :
  269. - | Created single float version for 68000
  270. - |
  271. - | Revision 1.0:
  272. - | original 8088 code from P.S.Housel for double floats
  273.   
  274.       .text
  275.       .even
  276.       .globl    __cmpsf2, ___cmpsf2
  277. -     | additional entry points for gcc2
  278. -     .globl    ___eqsf2, ___nesf2, ___gtsf2, ___gesf2, ___ltsf2, ___lesf2
  279.   
  280.   __cmpsf2:
  281.   ___cmpsf2:
  282.   ___eqsf2:
  283.   ___nesf2:
  284.   ___gtsf2:
  285. ! ___gesf2:
  286. ! ___ltsf2:
  287. ! ___lesf2:
  288. !     moveml    sp@(4),d0-d1    | get u and v
  289. !     tstl    d1        | check sign bit
  290.       bpl    1f
  291.       negl    d1        | negate
  292.       bchg    #31,d1        | toggle sign bit
  293. ! 1:
  294.       tstl    d0        | check sign bit
  295.       bpl    2f
  296.       negl    d0        | negate
  297.       bchg    #31,d0        | toggle sign bit
  298. ! 2:
  299. !     cmpl    d1,d0
  300. !     blt    lt
  301. !     bgt    gt
  302. ! eq:
  303. !     clrl    d0
  304.       rts
  305. ! lt:
  306. !     moveq    #-1,d0
  307.       rts
  308. ! gt:
  309. !     moveq    #1,d0
  310.       rts
  311. --- 1,135 ----
  312.   | single floating point compare routine
  313.   |
  314. ! | written by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  315. ! | Based on a 68k floating point packet from Kai-Uwe Bloem, itself based
  316. ! | on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  317. ! | 
  318. ! | Revision 2.0: olaf 12-92.
  319.   |
  320.   
  321.       .text
  322.       .even
  323. +     .globl    ___eqsf2, ___nesf2
  324. +     .globl    ___gtsf2, ___lesf2
  325. +     .globl    ___gesf2, ___ltsf2
  326. +     | additional entry points for gcc 1.X    
  327.       .globl    __cmpsf2, ___cmpsf2
  328.   
  329.   __cmpsf2:
  330.   ___cmpsf2:
  331.   ___eqsf2:
  332.   ___nesf2:
  333. +     moveml    sp@(4),d0-d1    | get numbers to compare with
  334. +     tstl    d0        | check sign bit
  335. +     bpl    1f
  336. +     negl    d0
  337. +     bchg    #31,d0        | toggle sign bit
  338. + 
  339. + 1:    tstl    d1        | check sign bit
  340. +     bpl    2f
  341. +     negl    d1        | negate
  342. +     bchg    #31,d1        | toggle sign bit
  343. + 
  344. + 2:    cmpl    d1,d0
  345. +     bne    4f
  346. +     bclr    #31,d1
  347. +     cmpl    #0x7f800000,d1        | NaN is not equal NaN !
  348. +     bgt    4f
  349. +     clrl    d0
  350. +     rts
  351. + 
  352. + 4:    moveql    #1,d0
  353. +     rts
  354. + 
  355.   ___gtsf2:
  356. !     moveml    sp@(4),d0-d1    | get numbers to compare with
  357. !     tstl    d0        | check sign bit
  358.       bpl    1f
  359. +     negl    d0        | negate
  360. +     bchg    #31,d0        | toggle sign bit
  361. + 
  362. + 1:    tstl    d1        | check sign bit
  363. +     bpl    2f
  364.       negl    d1        | negate
  365.       bchg    #31,d1        | toggle sign bit
  366. ! 
  367. ! 2:    cmpl    d1,d0
  368. !     bgt    4f        | d0 > d1 Test if NaN (should be false!)
  369. ! 3:    clrl    d0        | Test is false.
  370. !     rts
  371. ! 
  372. ! 4:    bclr    #31,d0        
  373. !     cmpl    #0x7f800000,d0    | First operand == NaN =?
  374. !     bgt    3b
  375. !     moveql    #1,d0        | Test True
  376. !     rts
  377. ! 
  378. ! ___lesf2:
  379. !     moveml    sp@(4),d0-d1    | get numbers to compare with
  380.       tstl    d0        | check sign bit
  381. +     bpl    1f
  382. +     negl    d0        | negate
  383. +     bchg    #31,d0        | toggle sign bit
  384. + 
  385. + 1:    tstl    d1        | check sign bit
  386.       bpl    2f
  387. +     negl    d1        | negate
  388. +     bchg    #31,d1        | toggle sign bit
  389. + 
  390. + 2:    cmpl    d1,d0
  391. +     ble    4f
  392. + 3:    moveql    #1,d0        | Test is false
  393. +     rts
  394. + 4:    bclr    #31,d0        
  395. +     cmpl    #0x7f800000,d0    | First operand == NaN =?
  396. +     bgt    3b
  397. +     clrl    d0        | Test true
  398. +     rts
  399. + 
  400. + ___gesf2:
  401. +     moveml    sp@(4),d0-d1    | get numbers to compare with
  402. +     tstl    d0        | check sign bit
  403. +     bpl    1f
  404.       negl    d0        | negate
  405.       bchg    #31,d0        | toggle sign bit
  406. ! 
  407. ! 1:    tstl    d1        | check sign bit
  408. !     bpl    2f
  409. !     negl    d1        | negate
  410. !     bchg    #31,d1        | toggle sign bit
  411. ! 
  412. ! 2:    cmpl    d1,d0
  413. !     bge    4f
  414. ! 3:    moveql    #-1,d0        | False
  415.       rts
  416. ! 
  417. ! 4:    bclr    #31,d0        
  418. !     cmpl    #0x7f800000,d0    | First operand == NaN =?
  419. !     bgt    3b
  420. !     clrl    d0        | Test True
  421. !     rts
  422. ! 
  423. ! ___ltsf2:
  424. !     moveml    sp@(4),d0-d1    | get numbers to compare with
  425. !     tstl    d0        | check sign bit
  426. !     bpl    1f
  427. !     negl    d0        | negate
  428. !     bchg    #31,d0        | toggle sign bit
  429. ! 
  430. ! 1:    tstl    d1        | check sign bit
  431. !     bpl    2f
  432. !     negl    d1        | negate
  433. !     bchg    #31,d1        | toggle sign bit
  434. ! 
  435. ! 2:    cmpl    d1,d0
  436. !     blt    4f
  437. ! 3:    clrl    d0
  438.       rts
  439. ! 4:    bclr    #31,d0        
  440. !     cmpl    #0x7f800000,d0    | First operand == NaN =?
  441. !     bgt    3b
  442. ! 5:    moveql    #-1,d0        | Test True
  443.       rts
  444. + 
  445. + 
  446. + 
  447. ===================================================================
  448. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_divsf3.cpp,v
  449. retrieving revision 1.3
  450. diff -c -r1.3 _divsf3.cpp
  451. *** 1.3    1992/12/18 16:35:40
  452. --- _divsf3.cpp    1993/01/13 14:30:38
  453. ***************
  454. *** 45,50 ****
  455. --- 45,54 ----
  456.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  457.   | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  458.   |
  459. + | Revision 1.2.2 olaf 12-92
  460. + |   + added support for NaN and Infinites
  461. + |   + added support for -0
  462. + |
  463.   | Revision 1.2.1 olaf 11-92
  464.   |   + prevent the tie rounding case if dividing is not exact.
  465.   |      > paranoia now says: "Division appears to round correctly"
  466. ***************
  467. *** 78,84 ****
  468.       andw    #0xff,d1    | kill sign bit
  469.   
  470.       andl    #0x7fffff,d4    | remove exponent from u.mantissa
  471. !     tstw    d0        | check for zero exponent - no leading "1"
  472.       beq    0f
  473.       orl    #0x800000,d4    | restore implied leading "1"
  474.       bra    1f
  475. --- 82,150 ----
  476.       andw    #0xff,d1    | kill sign bit
  477.   
  478.       andl    #0x7fffff,d4    | remove exponent from u.mantissa
  479. !     andl    #0x7fffff,d5    | remove exponent from v.mantissa
  480. ! |
  481. ! |
  482. ! |
  483. !     cmpb    #0xff,d0    
  484. !     beq    0f        |u == NaN || u== Inf
  485. !     cmpb    #0xff,d1
  486. !     beq    1f        | v == NaN || v == Inf
  487. !     tstb    d0
  488. !     bne    3f        | u not zero nor denorm
  489. !     tstl    d4
  490. !     beq    2f        | 0/ ?
  491. !     
  492. ! 3:    tstw    d1
  493. !     bne    nospec
  494. ! 
  495. !     tstl    d5
  496. !     bne    nospec
  497. !     bra    retinf        | x/0 -> +/- Inf
  498. ! 
  499. ! 0:    tstl    d4        | u == NaN ?
  500. !     bne    retnan        | NaN/ x
  501. !     cmpb    #0xff,d1    
  502. !     beq    retnan        | Inf/Inf or Inf/NaN 
  503. !     bra    retinf        | Inf/x | x != Inf && x != NaN
  504. ! 
  505. ! 1:    tstl    d5
  506. !     bne    retnan        | x/NaN
  507. !     bra    retzero        | x/Inf -> +/- 0
  508. ! 
  509. ! 2:    tstw    d1
  510. !     bne    retzero        | 0/x ->+/- 0
  511. !     tstl    d4
  512. !     bne    retzero        | 0/x 
  513. !     bra    retnan        | 0/0
  514. ! |
  515. ! |    Return Infinity with correct sign
  516. ! |    
  517. ! retinf:    tstl    d2
  518. !     bpl    0f
  519. !     movel    #0xff800000,d0
  520. ! return:    moveml    sp@+,d2-d5
  521. !     rts
  522. ! 
  523. ! 0:    movel    #0x7f800000,d0
  524. !     bra    return    
  525. ! |
  526. ! |    Return NaN
  527. ! |
  528. ! retnan: movel    #0x7fffffff,d0
  529. !     bra    return
  530. ! |
  531. ! |    Return correct signed zero
  532. ! |
  533. ! retzero:clrl    d0        | zero destination
  534. !     tstl    d2
  535. !     bmi    return
  536. !     bset    #31,d0
  537. !     bra    return
  538. ! |
  539. ! |    End of special handling
  540. ! |    
  541. ! nospec:    tstw    d0        | check for zero exponent - no leading "1"
  542.       beq    0f
  543.       orl    #0x800000,d4    | restore implied leading "1"
  544.       bra    1f
  545. ***************
  546. *** 89,95 ****
  547.       beq    retz        | dividing zero
  548.   # endif    ERROR_CHECK
  549.   
  550. -     andl    #0x7fffff,d5    | remove exponent from v.mantissa
  551.       tstw    d1        | check for zero exponent - no leading "1"
  552.       beq    0f
  553.       orl    #0x800000,d5    | restore implied leading "1"
  554. --- 155,160 ----
  555. ===================================================================
  556. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_extends.cpp,v
  557. retrieving revision 1.2
  558. diff -c -r1.2 _extends.cpp
  559. *** 1.2    1992/10/09 20:35:29
  560. --- _extends.cpp    1993/01/13 14:30:40
  561. ***************
  562. *** 35,43 ****
  563.       movew    d0,d2        | extract sign
  564.       lsrw    #7,d0
  565.       andw    #0xff,d0    | kill sign bit (exponent is 8 bits)
  566. - 
  567.       andl    #0x7fffff,d4    | remove exponent from mantissa
  568. !     tstw    d0        | check for zero exponent - no leading "1"
  569.       beq    0f        | for denormalized numbers
  570.       orl    #0x800000,d4    | restore implied leading "1"
  571.       bra    1f
  572. --- 35,60 ----
  573.       movew    d0,d2        | extract sign
  574.       lsrw    #7,d0
  575.       andw    #0xff,d0    | kill sign bit (exponent is 8 bits)
  576.       andl    #0x7fffff,d4    | remove exponent from mantissa
  577. ! 
  578. !     cmpb    #0xff,d0
  579. !     bne    nospec
  580. !     tstl    d4
  581. !     beq    retinf
  582. ! | ret nan
  583. !     movel    #0x7fffffff,d0
  584. !     moveql    #-1,d1
  585. ! return:    moveml    sp@+,d2-d7
  586. !     rts
  587. ! retinf:    clrl    d1
  588. !     movel    #0x7ff00000,d0
  589. !     tstw    d2
  590. !     bpl    return
  591. !     bset    #31,d0
  592. !     bra    return
  593. ! 
  594. !     
  595. ! nospec:    tstw    d0        | check for zero exponent - no leading "1"
  596.       beq    0f        | for denormalized numbers
  597.       orl    #0x800000,d4    | restore implied leading "1"
  598.       bra    1f
  599. ===================================================================
  600. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_mulsf3.cpp,v
  601. retrieving revision 1.2
  602. diff -c -r1.2 _mulsf3.cpp
  603. *** 1.2    1992/10/09 20:35:29
  604. --- _mulsf3.cpp    1993/01/13 14:30:42
  605. ***************
  606. *** 45,51 ****
  607. --- 45,55 ----
  608.   |
  609.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  610.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  611. + | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  612.   |
  613. + | Revision 1.2.1 olaf 12-92:
  614. + |   + added support for NaN and Infinites
  615. + |   + added support for -0
  616.   |
  617.   | Revision 1.2, kub 01-90 :
  618.   | added support for denormalized numbers
  619. ***************
  620. *** 62,69 ****
  621.       lea    sp@(4),a0
  622.       moveml    d2-d5,sp@-
  623.       moveml    a0@,d4/d5    | d4 = v, d5 = u
  624. -     subw    #8,sp        | multiplication accumulator
  625.   
  626.       movel    d5,d0        | d0 = u.exp
  627.       swap    d0
  628.       movew    d0,d2        | d2 = u.sign
  629. --- 66,73 ----
  630.       lea    sp@(4),a0
  631.       moveml    d2-d5,sp@-
  632.       moveml    a0@,d4/d5    | d4 = v, d5 = u
  633.   
  634. + 
  635.       movel    d5,d0        | d0 = u.exp
  636.       swap    d0
  637.       movew    d0,d2        | d2 = u.sign
  638. ***************
  639. *** 77,82 ****
  640. --- 81,131 ----
  641.       andw    #0xff,d1    | kill sign bit
  642.   
  643.       andl    #0x7fffff,d5    | remove exponent from u.mantissa
  644. +     andl    #0x7fffff,d4    | remove exponent from v.mantissa
  645. + |
  646. + | Testing for NaN and Infinities
  647. + |
  648. +     cmpb    #0xff,d0
  649. +     beq    0f
  650. +     cmpb    #0xff,d1
  651. +     bne    nospec
  652. +     bra    1f
  653. + |    first operand is special
  654. + |    Nan?
  655. + 0:    tstl    d5
  656. +     bne    retnan
  657. + |    Test v==0.
  658. +     tstb    d1
  659. +     bne    retinf  |  Inf  * x == Inf
  660. +     tstl    d4
  661. +     beq    retnan  | Inf * 0 == NaN
  662. + 
  663. + retinf:    tstl    d2
  664. +     bpl    0f
  665. +     movel    #0xff800000,d0
  666. + return:    moveml    sp@+,d2-d5
  667. +     rts
  668. + 
  669. + 
  670. + 0:    movel    #0x7f800000,d0
  671. +     bra    return    
  672. + 
  673. + retnan: movel    #0x7fffffff,d0
  674. +     bra    return
  675. + |
  676. + | v is special
  677. + |
  678. + 1:    tstl    d4
  679. +     bne    retnan
  680. +     tstb    d0
  681. +     bne    retinf
  682. +     tstl    d5
  683. +     beq    retnan
  684. +     bra    retinf
  685. + |
  686. + | end of NaN and Inf.
  687. + |    
  688. + nospec:    subw    #8,sp        | multiplication accumulator
  689.       tstw    d0        | check for zero exponent - no leading "1"
  690.       beq    0f
  691.       orl    #0x800000,d5    | restore implied leading "1"
  692. ***************
  693. *** 85,91 ****
  694.   1:    tstl    d5
  695.       beq    retz        | multiplying zero
  696.   
  697. -     andl    #0x7fffff,d4    | remove exponent from v.mantissa
  698.       tstw    d1        | check for zero exponent - no leading "1"
  699.       beq    0f
  700.       orl    #0x800000,d4    | restore implied leading "1"
  701. --- 134,139 ----
  702. ===================================================================
  703. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_negsf2.s,v
  704. retrieving revision 1.2
  705. diff -c -r1.2 _negsf2.s
  706. *** 1.2    1992/10/09 20:35:29
  707. --- _negsf2.s    1993/01/13 14:30:45
  708. ***************
  709. *** 2,8 ****
  710. --- 2,12 ----
  711.   |
  712.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  713.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  714. + | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  715.   |
  716. + | revision 1.1.1, olaf 12-92
  717. + |  + Since sign of NaN is ignored, we can flip it.
  718. + |  + -0. is different from 0., but compares equal!
  719.   |
  720.   | Revision 1.1, kub 12-89 :
  721.   | Created single float version for 68000
  722. ***************
  723. *** 16,22 ****
  724.   
  725.   __negsf2:            | floating point negate
  726.   ___negsf2:
  727. !     movel    sp@(4),d0    | do not negate if operand is 0.0
  728. !     beq    0f
  729.       bchg    #31,d0        | flip sign bit
  730. ! 0:    rts
  731. --- 20,25 ----
  732.   
  733.   __negsf2:            | floating point negate
  734.   ___negsf2:
  735. !     movel    sp@(4),d0
  736.       bchg    #31,d0        | flip sign bit
  737. !     rts
  738. ===================================================================
  739. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_normsf.cpp,v
  740. retrieving revision 1.4
  741. diff -c -r1.4 _normsf.cpp
  742. *** 1.4    1992/12/18 16:35:41
  743. --- _normsf.cpp    1993/01/13 14:30:49
  744. ***************
  745. *** 9,14 ****
  746. --- 9,17 ----
  747.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  748.   | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  749.   |
  750. + | Revision 1.4.3 olaf 12-92:
  751. + |  + added support for -0.
  752. + |
  753.   | Revision 1.4.2 olaf 11-92
  754.   |  + correct stack after overflow.
  755.   |
  756. ***************
  757. *** 130,136 ****
  758.   retz:    moveq    #ERANGE,d0
  759.       Emove    d0,Errno
  760.       clrl    d0
  761. !     moveml    sp@+,d2-d5
  762.       rts
  763.   
  764.   oflow:    
  765. --- 133,142 ----
  766.   retz:    moveq    #ERANGE,d0
  767.       Emove    d0,Errno
  768.       clrl    d0
  769. !     tstw    d2
  770. !     bpl    0f        | -0
  771. !     bset    #31,d0
  772. ! 0:    moveml    sp@+,d2-d5
  773.       rts
  774.   
  775.   oflow:    
  776. ===================================================================
  777. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/access.c,v
  778. retrieving revision 1.9
  779. diff -c -r1.9 access.c
  780. *** 1.9    1992/09/14 14:56:40
  781. --- access.c    1993/02/22 06:15:11
  782. ***************
  783. *** 20,29 ****
  784.       if (mode == F_OK)
  785.           return 0;    /* existence test succeeded */
  786.   
  787.   /* somewhat crufty code -- relies on R_OK, etc. matching the bits in the
  788.      file mode, but what the heck, we can do this
  789.    */
  790. !     if (__mint < 9 || ( geteuid() == sb.st_uid ) ) {
  791.           if ( ((sb.st_mode >> 6) & mode) == mode )
  792.               return 0;
  793.           else
  794. --- 20,31 ----
  795.       if (mode == F_OK)
  796.           return 0;    /* existence test succeeded */
  797.   
  798. +     if (getuid() == 0) return 0; /* super user can access anything */
  799. + 
  800.   /* somewhat crufty code -- relies on R_OK, etc. matching the bits in the
  801.      file mode, but what the heck, we can do this
  802.    */
  803. !     if (__mint < 9 || ( getuid() == sb.st_uid ) ) {
  804.           if ( ((sb.st_mode >> 6) & mode) == mode )
  805.               return 0;
  806.           else
  807. ***************
  808. *** 30,36 ****
  809.               goto accdn;
  810.       }
  811.   
  812. !     if ( getegid() == sb.st_gid ) {
  813.           if ( ((sb.st_mode >> 3) & mode) == mode )
  814.               return 0;
  815.           else
  816. --- 32,38 ----
  817.               goto accdn;
  818.       }
  819.   
  820. !     if ( getgid() == sb.st_gid ) {
  821.           if ( ((sb.st_mode >> 3) & mode) == mode )
  822.               return 0;
  823.           else
  824. ===================================================================
  825. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/alloca.cpp,v
  826. retrieving revision 1.7
  827. diff -c -r1.7 alloca.cpp
  828. *** 1.7    1992/10/09 20:35:29
  829. --- alloca.cpp    1993/02/18 00:00:06
  830. ***************
  831. *** 1,9 ****
  832. ! #APP
  833. ! # 
  834. ! #  alloca(nbytes) allocate junk in stack frame
  835. ! #
  836. ! #  void *alloca(size_t size)
  837. ! # 
  838.   
  839.       .text
  840.        .even
  841. --- 1,8 ----
  842. ! | 
  843. ! |  alloca(nbytes) allocate junk in stack frame
  844. ! |
  845. ! |  void *alloca(size_t size)
  846. ! | 
  847.   
  848.       .text
  849.        .even
  850. ***************
  851. *** 11,17 ****
  852. --- 10,21 ----
  853.   .globl    _alloca
  854.   _alloca:
  855.       movel    sp@+,a0        | get return addr
  856. + #ifndef __SOZOBON__
  857.       movel    sp@+,d0        | get size -- assist in bug fix, add 4 to sp
  858. + #else
  859. +     clrl    d0        | this size_t thing is getting to be
  860. +     movew    sp@+,d0        |  an annoyance...  -- sb
  861. + #endif
  862.   
  863.       addql    #1,d0        | ensure address even
  864.       bclr    #0,d0        | lop off odd bit
  865. ***************
  866. *** 19,24 ****
  867. --- 23,32 ----
  868.       subl    d0,sp        | increase stack frame size by that much
  869.       movel    sp,d0        | set up to return it
  870.   
  871. + #ifndef __SOZOBON__
  872.       lea    sp@(-4),sp    | new top of stack (real bug fix here)
  873. + #else
  874. +     lea    sp@(-2),sp    | hope this is correct...  -- sb
  875. + #endif
  876.   
  877.       jmp    a0@        | return by jmping via saved addr
  878. ===================================================================
  879. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/atof.c,v
  880. retrieving revision 1.23
  881. diff -c -r1.23 atof.c
  882. *** 1.23    1992/10/09 20:35:29
  883. --- atof.c    1993/01/13 14:30:52
  884. ***************
  885. *** 29,34 ****
  886. --- 29,37 ----
  887.    *    thanks peter!
  888.    *
  889.    *    mjr: 68881 version added
  890. +  *
  891. +  *    schwab: 68881 version replaced with new implementation that
  892. +  *        uses fmovep for maximum precision, no bits lost anymore!
  893.    */
  894.   
  895.   #if !defined (__M68881__) && !defined (sfp004)
  896. ***************
  897. *** 451,728 ****
  898.   }
  899.   #endif /* __OLD__ */
  900.   
  901. ! #else    __M68881__ || sfp004
  902. ! 
  903. ! #if 0
  904. ! #ifndef    sfp004
  905. ! # define _M68881    /* use the predefined inline functions                */
  906. ! #endif    sfp004
  907. ! #endif 0
  908. ! 
  909. ! /* M.R's kludgy atof --- 881 version.                        */
  910. ! /*     uses long integer accumulators and extended precision to put them    */
  911. ! /*    together in the fpu. The conversion long to extended is done completely    */
  912. ! /*    on the 881.                                */
  913. ! /*    using extended precision in _float_ avoids rounding errors.        */
  914. ! 
  915. ! /* 12.7.1989, 11.10.90, 28.1.91, 24.11.91                    */
  916. ! /* On overflow, only +-infinity is returned (the 68881's default).        */
  917. ! /* 24.11.91: return +-MAXDOUBLE instead of +- INFINITY or NAN            */
  918. ! /*           set errno to ERANGE/EDOM                        */
  919. ! 
  920. ! # include <ctype.h>
  921. ! # include <stdio.h>
  922. ! # include <float.h>
  923. ! # include <math.h>
  924. ! # include <errno.h>
  925. ! # include "flonum.h"
  926. ! 
  927. ! double atof( const char * );
  928. ! double strtod( const char *, const char ** );
  929. ! double _Float_( long, long, long, long );
  930. ! 
  931. ! # define    true 1
  932. ! # define false 0
  933. ! # define CharIsDigit ( isdigit(*Text) )
  934. ! # define Digit ((*Text-'0'))
  935. ! 
  936. ! #if 0
  937. ! static unsigned long
  938. !     __notanumber[2] = { 0x7fffffffL, 0xffffffffL }; /* ieee NAN */
  939. ! # define NAN  (*((double *)&__notanumber[0]))
  940. ! # endif 0
  941. ! 
  942. ! # define ten_mul(X)    ((((X) << 2) + (X)) << 1)
  943.   
  944. ! double strtod( const char * Save, const char ** Endptr )
  945. ! {
  946. !   register int Count; int Negative = false, ExpNegative = false;
  947.   
  948. !   double Value;
  949. !   union double_di * l_Value;
  950. !   register long Exponent, Exp_Temp;
  951. !   register long Value_1, Value_2;
  952. !   register char c;
  953. !   register char * Text;
  954. !   register char * Places;
  955. !   char Buffer[15];
  956. ! 
  957. !   l_Value = (union double_di *) &Value;
  958. ! 
  959. !   Text = Save;
  960. !   Places = Buffer;
  961. ! 
  962. !   /* skip over leading whitespace */
  963. !   while (isspace(*Text)) Text++;
  964. ! 
  965. !   if (*Text == '-') {
  966. !     Negative = true;
  967. !     Text++;
  968. !   } else
  969. !   if (*Text == '+') {
  970. !     Negative = false;
  971. !     Text++;
  972. !   } else
  973. !   if( *Text == 0 ) {
  974. !     if( Endptr != NULL ) *Endptr = Text;
  975. !     return 0.0;
  976. !   }
  977. ! 
  978. !   /* Process the 'f'-part                             */
  979. !   /* ignore any digit beyond the 15th                         */
  980. !   /* BUG: may overflow if more than 10 digits precede the '.'            */
  981. !   /* to cure use to accumulators as is being done for the digits after        */
  982. !   /* the '.'.                                    */
  983. ! 
  984. !   Exp_Temp = 0;            /* needed later on for the exponential part    */
  985. !   Value_1 = 0; Value_2 = 0; Count = 0; Exponent = 0;
  986. !   while( CharIsDigit ) {    /* process digits before '.'            */
  987. !     if( Count < 15 ) {
  988. !       Count++;
  989. !       *Places++ = Digit;
  990. !     }
  991. !     Text++;
  992. !   }
  993. !   if ( *Text == '.') {
  994. !     Text++;
  995. !     while( CharIsDigit ) {    /* process digits after '.'            */
  996. !       if( Count < 15 )    {
  997. !         Count++;
  998. !             *Places++ = Digit;
  999. !         Exponent--;
  1000. !       }
  1001. !       Text++;
  1002. !     }
  1003. !   }
  1004. !   Places = Buffer;
  1005. ! 
  1006. !   /* Now, Places points to a vector of <= 15 digits                */
  1007. !   /* text points to the position immediately after the end of the mantissa    */
  1008. !   /* Value_2 will contain the equiv. of the 8 least significant digits, while    */
  1009. !   /* Value_1 will contain the equiv. of the 7 most significant digits (if any)    */
  1010. !   /* and therefore has to be multiplied by 10^8                    */
  1011. !   /* no overflow possible in the temporary buffers                */
  1012. ! 
  1013. !   while( Count > 8 )    {
  1014. !       Value_1 = ten_mul( Value_1 );      Value_1 += *Places++;
  1015. !       Count--;
  1016. !   }
  1017. !   while( Count > 0 )    {
  1018. !       Value_2 = ten_mul( Value_2 );      Value_2 += *Places++;
  1019. !       Count--;
  1020. !   }
  1021. ! 
  1022. !   /* 'e'-Part */
  1023. !   if ( *Text == 'e' || *Text == 'E' || *Text == 'd' || *Text == 'D' ) {
  1024. ! 
  1025. !     char * Tail = Text;
  1026. !     Text++;
  1027. ! 
  1028. !     /* skip over whitespace since ANSI allows space after e|E|d|D        */
  1029. !     while (isspace(*Text)) Text++;
  1030. ! 
  1031. !     if ( * Text == '-' ) {
  1032. !         ExpNegative = true;
  1033. !         Text++;
  1034. !     } else
  1035. !     if( * Text == '+' ) {
  1036. !         ExpNegative = false;
  1037. !         Text++;
  1038. !     }
  1039. !     if( !CharIsDigit ) {
  1040. !         *Endptr = Tail;    /* take the 'e|E|d|D' as part of the characters    */
  1041. !         goto Ende;        /* following the number            */
  1042. !     } else {
  1043. !     /* Exponents may have at most 3 digits, everything beyond this will be    */
  1044. !     /* silently ignored                            */
  1045. !         Count = 0;
  1046. !         while( CharIsDigit && (Count < 3) ) {
  1047. !             Exp_Temp = ten_mul( Exp_Temp ); Exp_Temp += Digit;
  1048. !               Count++;
  1049. !             Text++;
  1050. !         }
  1051. !         if( ExpNegative ) Exp_Temp = -Exp_Temp;
  1052. !         Exponent += Exp_Temp;
  1053. !      }
  1054. !   }
  1055. !   Value = _Float_( Value_1, Exponent+8L, Value_2, Exponent );
  1056. ! 
  1057. !   if( Endptr != NULL ) *Endptr = Text;
  1058. !   if( (l_Value -> i[0]) >= 0x7ff00000U )    { /* INFINITY or NAN        */
  1059. !     fprintf(stderr," strtod: OVERFLOW error\n");
  1060. !     errno = ERANGE;
  1061. !     Value = DBL_MAX;
  1062. !   }
  1063.   
  1064. ! Ende:    
  1065. !   if( Negative ) {
  1066. !     Value = -Value;
  1067. !   }
  1068. !   return( Value );
  1069. ! 
  1070. ! # if 0
  1071. ! Error:
  1072. !   fputs("\njunk number \"",stderr); fputs(Save,stderr); 
  1073. !   fputs("\" --- returning NAN\n",stderr);
  1074. !   errno = ERANGE;
  1075. !   if( Endptr != NULL ) *Endptr = Text;
  1076. !   return(NAN);    /* == Not A Number (NAN) */
  1077. ! # endif
  1078. ! }
  1079.   
  1080. ! double atof( const char * Text )
  1081. ! {
  1082. !     return(strtod(Text,(char **)NULL));
  1083. ! }
  1084.   
  1085. ! /*
  1086. !  * double _Float_( long Value_1, long Exponent_1, long Value_2, long Exponent_2 )
  1087. !  *
  1088. !  * merges the accumulators Value_1, Value_2 and the Exponent to a double
  1089. !  * precision float
  1090. !  * called by strtod()
  1091. !  *
  1092. !  * does all floating point computations with extended precision on the fpu
  1093. !  */
  1094.   
  1095. ! #endif __M68881__ || sfp004
  1096.   
  1097. ! #ifdef __M68881__
  1098. ! asm(
  1099. ! ".even
  1100. ! .text
  1101. !     .globl __Float_
  1102. ! __Float_:
  1103. !     ftentoxl    a7@(8),fp1        | load Exponent_1
  1104. !     ftentoxl    a7@(16),fp0        | load Exponent_2
  1105. !     fmull        a7@(12),fp0        | fmull Value_2 -> fp0
  1106. !     fmull        a7@(4),fp1        | fmull Value_1 -> fp1
  1107. !     faddx        fp0,fp1
  1108. !     fmoved        fp1,a7@-        | fmoved fp1 -> d0/d1
  1109. !     moveml        a7@+,d0-d1
  1110. !      rts
  1111. ! ");
  1112. ! #endif    __M68881
  1113. ! #ifdef    sfp004
  1114.   
  1115. ! asm("| mjr, 30.1.1991
  1116. ! |
  1117. ! | base =    0xfffa50
  1118. ! |      the fpu addresses are taken relativ to 'base':
  1119. ! |
  1120. ! | a0: fpu base address
  1121. ! |
  1122. ! 
  1123. ! | waiting loop ...
  1124. ! |
  1125. ! | wait:
  1126. ! | ww:    cmpiw    #0x8900,a0@(resp)
  1127. ! |     beq    ww
  1128. ! | is coded directly by
  1129. ! |    .long    0x0c688900, 0xfff067f8 (a0)
  1130. ! | and
  1131. ! | www:    tst.w    a0@(resp)
  1132. ! |    bmi.b    www
  1133. ! | is coded by
  1134. ! |    .word    0x4a68,0xfff0,0x6bfa        | test
  1135. ! |
  1136. ! 
  1137. ! comm =     -6
  1138. ! resp =    -16
  1139. ! zahl =      0
  1140.   
  1141. !     .globl __Float_
  1142. ! .even
  1143. ! .text
  1144. ! __Float_:
  1145. !     lea    0xfffffa50:w,a0            | fpu address
  1146.   
  1147. !     movew    #0x4092,a0@(comm)        | ftentoxl -> fp1
  1148. !     .long    0x0c688900, 0xfff067f8
  1149. !     movel    a7@(8),a0@            | load Exponent_1
  1150. ! 
  1151. !     movew    #0x4112,a0@(comm)        | ftentoxl -> fp2
  1152. !     .long    0x0c688900, 0xfff067f8
  1153. !     movel    a7@(16),a0@            | load Exponent_2
  1154. ! 
  1155. !     movew    #0x4123,a0@(comm)        | fmull Value_2 -> fp2
  1156. !     .long    0x0c688900, 0xfff067f8
  1157. !     movel    a7@(12),a0@            | load Value_2
  1158. ! 
  1159. !     movew    #0x40a3,a0@(comm)        | fmull Value_1 -> fp1
  1160. !     .long    0x0c688900, 0xfff067f8
  1161. !     movel    a7@(4),a0@            | load Value_1
  1162.   
  1163. !     movew    #0x08a2,a0@(comm)        | faddx fp2 -> fp1
  1164. !     .word    0x4a68,0xfff0,0x6bfa        | test
  1165.   
  1166. !     movew    #0x7480,a0@(comm)        | fmoved fp1 -> d0/d1
  1167. !     .long    0x0c688900, 0xfff067f8
  1168. !     movel    a0@,d0
  1169. !     movel    a0@,d1
  1170. !      rts
  1171. ! ");
  1172. ! #endif    sfp004
  1173.   
  1174.   #ifdef TEST
  1175.   #if 0
  1176. --- 454,670 ----
  1177.   }
  1178.   #endif /* __OLD__ */
  1179.   
  1180. ! #else /* __M68881__ || sfp004 */
  1181.   
  1182. ! #include <string.h>
  1183. ! #include <ctype.h>
  1184. ! #include <math.h>
  1185. ! #include <float.h>
  1186. ! #include <errno.h>
  1187. ! #include "flonum.h"
  1188.   
  1189. ! #ifdef sfp004
  1190. ! /* Note: not tested -- schwab */
  1191.   
  1192. ! /* static */ double Float __PROTO ((char *));
  1193.   
  1194. ! asm ("
  1195. ! comm = -6;
  1196. ! resp = -16;
  1197. ! .text
  1198. ! .even
  1199. ! _Float:
  1200. !     lea    0xfffffa50:w,a0            | fpu address
  1201. !     movel    sp@(4),a1
  1202. !     movew    #0x4c00,a0@(comm)        | fmovep -> fp0
  1203. ! 1:    cmpw    #0x8900,a0@(resp)
  1204. !     beq    1b
  1205. !     movel    a1@+,a0@            | load data
  1206. !     movel    a1@+,a0@
  1207. !     movel    a1@+,a0@
  1208. ! 
  1209. !     movew    #0x7400,a0@(comm)        | fmoved fp0 -> d0/d1
  1210. ! 1:    cmpw    #0x8900,a0@(resp)
  1211. !     beq    1b
  1212. !     movel    a0@,d0
  1213. !     movel    a0@,d1
  1214. !     rts
  1215. ! ");
  1216. ! #endif
  1217.   
  1218. ! /* Format of packed decimal (from left to right):
  1219.   
  1220. !     1 Bit: sign of mantissa
  1221. !     1 Bit: sign of exponent
  1222. !     2 Bits zero
  1223. !    12 Bits: three digits exponent
  1224. !     4 Bits unused, fourth (higher order) digit of exponent
  1225. !     8 Bits zero
  1226. !    68 Bits: 17 digits of mantissa, decimal point after first digit
  1227. !   --------
  1228. !    96 Bits == 12 Bytes
  1229.   
  1230. !    All digits in BCD format.  */
  1231.   
  1232. ! double
  1233. ! strtod (const char *str, const char **endptr)
  1234. ! {
  1235. !   char packed_buf[12];
  1236. !   char *p;
  1237. !   int exponent, i, digits_seen;
  1238. !   union double_di di;
  1239. ! 
  1240. !   if (endptr)
  1241. !     *endptr = str;
  1242. !   while (isspace (*str))
  1243. !     str++;
  1244. !   p = packed_buf;
  1245. !   for (i = 0; i < sizeof (packed_buf); i++)
  1246. !     *p++ = 0;
  1247. !   if (*str == '-')
  1248. !     {
  1249. !       packed_buf[0] = 0x80;
  1250. !       str++;
  1251. !     }
  1252. !   else if (*str == '+')
  1253. !     str++;
  1254. !   else if (*str == '\0')
  1255. !     return 0.0;
  1256. !   i = 0;
  1257. !   exponent = -1;
  1258. !   digits_seen = 0;
  1259. !   p = packed_buf + 3;
  1260. !   /* Ignore leading 0's. */
  1261. !   while (*str == '0')
  1262. !     {
  1263. !       digits_seen++;
  1264. !       str++;
  1265. !     }
  1266. !   while (isdigit (*str))
  1267. !     {
  1268. !       digits_seen++;
  1269. !       if (i < 17)
  1270. !     {
  1271. !       if (i & 1)
  1272. !         *p = (*str - '0') << 4;
  1273. !       else
  1274. !         *p++ |= *str - '0';
  1275. !       i++;
  1276. !     }
  1277. !       exponent++;
  1278. !       str++;
  1279. !     }
  1280. !   if (*str == '.')
  1281. !     {
  1282. !       str++;
  1283. !       if (i == 0)
  1284. !     {
  1285. !       /* Skip leading 0's.  */
  1286. !       while (*str == '0')
  1287. !         {
  1288. !           digits_seen++;
  1289. !           exponent--;
  1290. !           str++;
  1291. !         }
  1292. !     }
  1293. !       while (isdigit (*str))
  1294. !     {
  1295. !       digits_seen++;
  1296. !       if (i < 17)
  1297. !         {
  1298. !           if (i++ & 1)
  1299. !         *++p = (*str - '0') << 4;
  1300. !           else
  1301. !         *p |= *str - '0';
  1302. !         }
  1303. !       str++;
  1304. !     }
  1305. !     }
  1306. !   /* Check that there were any digits.  */
  1307. !   if (!digits_seen)
  1308. !     return 0.0;
  1309.   
  1310. !   if (*str == 'e' || *str == 'E' || *str == 'd' || *str == 'D')
  1311. !     {
  1312. !       const char *eptr = str;
  1313. !       int exp_given, exp_neg;
  1314.   
  1315. !       str++;
  1316. !       while (isspace (*str))
  1317. !     str++;
  1318. !       exp_neg = 0;
  1319. !       if (*str == '-')
  1320. !     {
  1321. !       exp_neg = 1;
  1322. !       str++;
  1323. !     }
  1324. !       else if (*str == '+')
  1325. !     str++;
  1326. !       if (!isdigit (*str))
  1327. !     {
  1328. !       str = eptr;
  1329. !       goto convert;
  1330. !     }
  1331. !       while (*str == '0')
  1332. !     str++;
  1333. !       exp_given = 0;
  1334. !       while (isdigit (*str) && exp_given < 900)
  1335. !     {
  1336. !       exp_given = exp_given * 10 + *str - '0';
  1337. !       str++;
  1338. !     }
  1339. !       while (isdigit (*str))
  1340. !     str++;
  1341. !       if (exp_given >= 900)
  1342. !     {
  1343. !       /* Must be overflow/underflow.  */
  1344. !       if (endptr)
  1345. !         *endptr = str;
  1346. !       if (exp_neg)
  1347. !         return 0.0;
  1348. !       goto overflow;
  1349. !     }
  1350. !       if (exp_neg)
  1351. !     exponent -= exp_given;
  1352. !       else
  1353. !     exponent += exp_given;
  1354. !     }
  1355. !  convert:
  1356. !   if (endptr)
  1357. !     *endptr = str;
  1358. !   if (exponent < 0)
  1359. !     {
  1360. !       packed_buf[0] |= 0x40;
  1361. !       exponent = -exponent;
  1362. !     }
  1363. !   packed_buf[1] = exponent % 10;
  1364. !   packed_buf[1] |= ((exponent /= 10) % 10) << 4;
  1365. !   packed_buf[0] |= exponent / 10 % 10;
  1366. ! #ifdef sfp004
  1367. !   di.d = Float (packed_buf);
  1368. ! #else
  1369. !   __asm ("fmovep %1,%0" : "=f" (di.d) : "m" (packed_buf[0]));
  1370. ! #endif
  1371. !   /* Check for overflow.  */
  1372. !   if ((di.i[0] & 0x7fffffff) >= 0x7ff00000)
  1373. !     {
  1374. !     overflow:
  1375. !       errno = ERANGE;
  1376. !       if (packed_buf[0] & 0x80)
  1377. !     return -DBL_MAX;
  1378. !       else
  1379. !     return DBL_MAX;
  1380. !     }
  1381. !   return di.d;
  1382. ! }
  1383.   
  1384. ! double
  1385. ! atof (const char *str)
  1386. ! {
  1387. !   return strtod (str, NULL);
  1388. ! }
  1389.   
  1390. ! #endif /* __M68881__ || sfp004 */
  1391.   
  1392.   #ifdef TEST
  1393.   #if 0
  1394. ===================================================================
  1395. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/bcopy.cpp,v
  1396. retrieving revision 1.7
  1397. diff -c -r1.7 bcopy.cpp
  1398. *** 1.7    1992/11/06 23:02:09
  1399. --- bcopy.cpp    1993/02/18 00:00:08
  1400. ***************
  1401. *** 17,38 ****
  1402.   |    returns dest
  1403.   |    functions are aliased
  1404.   
  1405.   _memcpy:
  1406.   _memmove:
  1407.       movl    sp@(4),a1    | dest
  1408.       movl    sp@(8),a0    | src
  1409.       jra    common        | the rest is samea as bcopy
  1410.   
  1411.   |    void bcopy( const void *src, void *dest, size_t length );
  1412. ! |    void lbcopy( const void *src, void *dest, size_t length );
  1413.   |    return value not used (returns src)
  1414. ! |    functions are aliased
  1415.   
  1416.   _bcopy:
  1417.   __bcopy:
  1418.       movl    sp@(4),a0    | src
  1419.       movl    sp@(8),a1    | dest
  1420.   common:    movl    sp@(12),d0    | length
  1421.       jeq    exit        | length==0? (size_t)
  1422.   
  1423.                   | a0 src, a1 dest, d0.l length
  1424. --- 17,61 ----
  1425.   |    returns dest
  1426.   |    functions are aliased
  1427.   
  1428. + #ifndef __SOZOBON__
  1429.   _memcpy:
  1430.   _memmove:
  1431.       movl    sp@(4),a1    | dest
  1432.       movl    sp@(8),a0    | src
  1433.       jra    common        | the rest is samea as bcopy
  1434. + #else
  1435. + |    _bcopy() is the base function below; for memcpy(), memmove()
  1436. + |    and bcopy(), we have to sneak a size_t into an unsigned long first.
  1437.   
  1438. + _memcpy:
  1439. + _memmove:
  1440. +     movl    sp@(4),a1    | dest
  1441. +     movl    sp@(8),a0    | src
  1442. +     clrl    d0        | here is the sneaky bit...
  1443. +     movw    sp@(12),d0    | length
  1444. +     jra    common2        | the rest is samea as bcopy
  1445. + 
  1446. + _bcopy:
  1447. +     movl    sp@(4),a0    | src
  1448. +     movl    sp@(8),a1    | dest
  1449. +     clrl    d0        | here is the sneaky bit...
  1450. +     movw    sp@(12),d0    | length
  1451. +     jra    common2        | the rest is samea as bcopy
  1452. + #endif
  1453. + 
  1454.   |    void bcopy( const void *src, void *dest, size_t length );
  1455. ! |    void _bcopy( const void *src, void *dest, unsigned long length );
  1456.   |    return value not used (returns src)
  1457. ! |    functions are aliased (except for HSC -- sb)
  1458.   
  1459. + #ifndef __SOZOBON__
  1460.   _bcopy:
  1461. + #endif
  1462.   __bcopy:
  1463.       movl    sp@(4),a0    | src
  1464.       movl    sp@(8),a1    | dest
  1465.   common:    movl    sp@(12),d0    | length
  1466. + common2:
  1467.       jeq    exit        | length==0? (size_t)
  1468.   
  1469.                   | a0 src, a1 dest, d0.l length
  1470. ===================================================================
  1471. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/bzero.cpp,v
  1472. retrieving revision 1.3
  1473. diff -c -r1.3 bzero.cpp
  1474. *** 1.3    1992/11/06 23:02:09
  1475. --- bzero.cpp    1993/02/18 00:00:10
  1476. ***************
  1477. *** 18,24 ****
  1478. --- 18,29 ----
  1479.       movl    sp@(4),a0    | dest
  1480.   #ifdef __MSHORT__
  1481.       movb    sp@(9),d0    | value
  1482. + # ifndef __SOZOBON__
  1483.       movl    sp@(10),d1    | length
  1484. + # else
  1485. +     clrl    d1
  1486. +     movw    sp@(10),d1    | length
  1487. + # endif
  1488.   #else
  1489.       movb    sp@(11),d0    | value
  1490.       movl    sp@(12),d1    | length
  1491. ***************
  1492. *** 27,39 ****
  1493.       jra    do_set
  1494.   
  1495.   |    void bzero( void *dest, size_t length );
  1496. ! |    void _bzero( void *dest, size_t length );
  1497.   |    return value not used (returns dest)
  1498.   
  1499.   _bzero:
  1500.   __bzero:
  1501.       movl    sp@(4),a0    | dest
  1502.       movl    sp@(8),d1    | length
  1503.       jeq    exit        | length==0? (size_t)
  1504.       clrb    d0        | value
  1505.   
  1506. --- 32,53 ----
  1507.       jra    do_set
  1508.   
  1509.   |    void bzero( void *dest, size_t length );
  1510. ! |    void _bzero( void *dest, unsigned long length );
  1511.   |    return value not used (returns dest)
  1512.   
  1513. + #ifdef __SOZOBON__
  1514.   _bzero:
  1515. +     movl    sp@(4),a0    | dest
  1516. +     clrl    d1
  1517. +     movw    sp@(8),d1    | length
  1518. +     jra    scommon
  1519. + #else
  1520. + _bzero:
  1521. + #endif
  1522.   __bzero:
  1523.       movl    sp@(4),a0    | dest
  1524.       movl    sp@(8),d1    | length
  1525. + scommon:
  1526.       jeq    exit        | length==0? (size_t)
  1527.       clrb    d0        | value
  1528.   
  1529. ***************
  1530. *** 44,53 ****
  1531.   
  1532.       movw    a0,d2        | test for alignment
  1533.       btst    #0,d2        | odd ?
  1534. !     jeq    even
  1535.       movb    d0,a0@-     | set one byte, now we are even
  1536.       subql    #1,d1
  1537. ! even:
  1538.       movb    d0,d2
  1539.       lslw    #8,d0
  1540.       movb    d2,d0
  1541. --- 58,67 ----
  1542.   
  1543.       movw    a0,d2        | test for alignment
  1544.       btst    #0,d2        | odd ?
  1545. !     jeq    areeven
  1546.       movb    d0,a0@-     | set one byte, now we are even
  1547.       subql    #1,d1
  1548. ! areeven:
  1549.       movb    d0,d2
  1550.       lslw    #8,d0
  1551.       movb    d2,d0
  1552. ===================================================================
  1553. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/ctime.c,v
  1554. retrieving revision 1.8
  1555. diff -c -r1.8 ctime.c
  1556. *** 1.8    1992/09/14 14:56:40
  1557. --- ctime.c    1993/02/18 00:00:15
  1558. ***************
  1559. *** 37,44 ****
  1560.   
  1561.   #else
  1562.   
  1563.   static char *
  1564. ! two_dig(char *buf, unsigned short num) {
  1565.       unsigned int rem;
  1566.   
  1567.       rem = num % 10;
  1568. --- 37,49 ----
  1569.   
  1570.   #else
  1571.   
  1572. + static char * two_dig __PROTO((char *buf, unsigned short num));
  1573. + 
  1574.   static char *
  1575. ! two_dig(buf, num)
  1576. !     char *buf;
  1577. !     unsigned short num;
  1578. ! {
  1579.       unsigned int rem;
  1580.   
  1581.       rem = num % 10;
  1582. ===================================================================
  1583. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/doprnt.c,v
  1584. retrieving revision 1.19
  1585. diff -c -r1.19 doprnt.c
  1586. *** 1.19    1992/11/08 00:02:47
  1587. --- doprnt.c    1993/02/18 00:00:18
  1588. ***************
  1589. *** 22,27 ****
  1590. --- 22,30 ----
  1591.    *      mjr++
  1592.    * and for turbo C and the MiNT library
  1593.    *     ++um,mh
  1594. +  * and special M68881 and sfp004 version of cvt() added that uses fmovep for
  1595. +  * maximum precision, no bits lost anymore!
  1596. +  *    ++schwab
  1597.    */
  1598.   
  1599.   #ifndef __NO_FLOAT__
  1600. ***************
  1601. *** 82,92 ****
  1602.   
  1603.   #define    PUTC(ch)     if( fputc(ch, fp) == EOF ) return EOF;
  1604.   
  1605. - #define ARG(basetype) \
  1606. -     _ulong = flags&LONGINT ? va_arg(argp, long basetype) : \
  1607. -         flags&SHORTINT ? (short basetype)va_arg(argp, short) : \
  1608. -         va_arg(argp, int)
  1609.   
  1610.   #define TEN_MUL(X)    ((((X) << 2) + (X)) << 1)
  1611.   
  1612.   #define    todigit(c)    ((c) - '0')
  1613. --- 85,102 ----
  1614.   
  1615.   #define    PUTC(ch)     if( fputc(ch, fp) == EOF ) return EOF;
  1616.   
  1617.   
  1618. + #define ARG(signtag) \
  1619. +     _ulong = \
  1620. +         flags&LONGINT ? \
  1621. +             (unsigned long)va_arg(argp, signtag long) : \
  1622. +         (flags&SHORTINT ? \
  1623. +             (unsigned long)(signtag short)va_arg(argp, signtag int) : \
  1624. +              (unsigned long)va_arg(argp, signtag int))
  1625. +      /* shorts are always promoted to ints; thus, it's `va_arg(... int)'
  1626. +       * for `flags&SHORTINT'!
  1627. +       */
  1628. + 
  1629.   #define TEN_MUL(X)    ((((X) << 2) + (X)) << 1)
  1630.   
  1631.   #define    todigit(c)    ((c) - '0')
  1632. ***************
  1633. *** 106,111 ****
  1634. --- 116,126 ----
  1635.   
  1636.   #ifdef __FLOATS__
  1637.   # include    "flonum.h"
  1638. + #if defined (__M68881__) || defined (sfp004)
  1639. + static char *exponent __PROTO ((char *, int, int));
  1640. + static int _round __PROTO ((int, char *, char *, char *));
  1641. + static int cvt __PROTO ((double, int, int, char *, int, char *));
  1642. + #else
  1643.   #  if __STDC__
  1644.   static char *exponent(char *, int, int);
  1645.   static char *_round(double, int *, char *, char *, int, char *);
  1646. ***************
  1647. *** 115,120 ****
  1648. --- 130,136 ----
  1649.   static char *_round();
  1650.   static int  cvt();
  1651.   #  endif
  1652. + #endif /* __M68881__ */
  1653.   #endif
  1654.   
  1655.   #if defined(__GNUC__) && (!defined(__NO_INLINE__))
  1656. ***************
  1657. *** 303,309 ****
  1658.               /*FALLTHROUGH*/
  1659.           case 'd':
  1660.           case 'i':
  1661. !             ARG(int);
  1662.               if ((long)_ulong < 0) {
  1663.                   _ulong = -_ulong;
  1664.                   sign = '-';
  1665. --- 319,325 ----
  1666.               /*FALLTHROUGH*/
  1667.           case 'd':
  1668.           case 'i':
  1669. !             ARG(signed);
  1670.               if ((long)_ulong < 0) {
  1671.                   _ulong = -_ulong;
  1672.                   sign = '-';
  1673. ***************
  1674. *** 348,356 ****
  1675.               }
  1676.               else
  1677.                   softsign = 0;
  1678.   /* mjr: check for +-INFINITY */
  1679. !             if (((unsigned long)_dd.i[0] == INF_HI) &&
  1680. !                 ((unsigned long)_dd.i[1] == INF_LO))
  1681.                 {
  1682.                   t = buf;
  1683.                   if(softsign == 0)
  1684. --- 364,386 ----
  1685.               }
  1686.               else
  1687.                   softsign = 0;
  1688. + /* hyc: check for overflows ... */
  1689. +             if (((unsigned long)_dd.i[0] > INF_HI) ||
  1690. +                 ((unsigned long)_dd.i[0] == INF_HI &&
  1691. +                  (unsigned long)_dd.i[1] > INF_LO))
  1692. +               {
  1693. +                 t = buf;
  1694. +                 if(softsign == 0)
  1695. +                 t = strcpy(t, "NaN");
  1696. +                 else
  1697. +                 t = strcpy(t, "-NaN");
  1698. +                 size = strlen(t);
  1699. +                 goto pforw;
  1700. +             }
  1701. +             else    /* Not greater, see if equal to Inf */
  1702. + 
  1703.   /* mjr: check for +-INFINITY */
  1704. !             if ((unsigned long)_dd.i[0] == INF_HI)
  1705.                 {
  1706.                   t = buf;
  1707.                   if(softsign == 0)
  1708. ***************
  1709. *** 367,373 ****
  1710.                */
  1711.               *buf = '\0';
  1712.               size = cvt(_double, (int)prec, (int)flags, &softsign,
  1713. !                    *fmt, buf, buf + (int)sizeof(buf)); 
  1714.               if (softsign)
  1715.                   sign = '-';
  1716.               t = *buf ? buf : buf + 1;
  1717. --- 397,407 ----
  1718.                */
  1719.               *buf = '\0';
  1720.               size = cvt(_double, (int)prec, (int)flags, &softsign,
  1721. !                    *fmt, buf
  1722. ! #if !defined (__M68881__) && !defined (sfp004)
  1723. !                    , buf + (int)sizeof(buf)
  1724. ! #endif
  1725. !                    ); 
  1726.               if (softsign)
  1727.                   sign = '-';
  1728.               t = *buf ? buf : buf + 1;
  1729. ***************
  1730. *** 512,517 ****
  1731. --- 546,561 ----
  1732.               for (n = fieldsz; n < dprec; n++)
  1733.                   PUTC('0');
  1734.   
  1735. + #ifdef __FLOATS__
  1736. +             if (fpprec > 0)
  1737. +               {
  1738. +                 /* the number without exponent */
  1739. +                 n = size;
  1740. +                 while (*t != 'e' && *t != 'E' && --n >= 0)
  1741. +                   PUTC (*t++);
  1742. +               }
  1743. +             else
  1744. + #endif
  1745.               /* the string or number proper */
  1746.               for (n = size; --n >= 0; )
  1747.                   PUTC(*t++);
  1748. ***************
  1749. *** 518,523 ****
  1750. --- 562,572 ----
  1751.               /* trailing f.p. zeroes */
  1752.               while (--fpprec >= 0)
  1753.                   PUTC('0');
  1754. + #ifdef __FLOATS__
  1755. +             /* exponent */
  1756. +             while (--n >= 0)
  1757. +               PUTC (*t++);
  1758. + #endif
  1759.               /* left-adjusting padding (always blank) */
  1760.               if (flags & LADJUST)
  1761.                   for (n = realsz; n < width; n++)
  1762. ***************
  1763. *** 536,541 ****
  1764. --- 585,868 ----
  1765.   }
  1766.   
  1767.   #ifdef __FLOATS__
  1768. + #if defined (__M68881__) || defined (sfp004)
  1769. + 
  1770. + /* Format of packed decimal (from left to right):
  1771. + 
  1772. +     1 Bit: sign of mantissa
  1773. +     1 Bit: sign of exponent
  1774. +     2 Bits zero
  1775. +    12 Bits: three digits exponent
  1776. +     4 Bits unused, fourth (higher order) digit of exponent
  1777. +     8 Bits zero
  1778. +    68 Bits: 17 digits of mantissa, decimal point after first digit
  1779. +   --------
  1780. +    96 Bits == 12 Bytes
  1781. + 
  1782. +    All numbers in BCD format.  */
  1783. + 
  1784. + #ifdef sfp004
  1785. + /* Note: not tested -- schwab */
  1786. + 
  1787. + /* static */ void Format __PROTO ((double number, char *buf));
  1788. + 
  1789. + asm ("
  1790. + comm = -6;
  1791. + resp = -16;
  1792. + .text
  1793. + .even
  1794. + _Format:
  1795. +     lea    0xfffffa50:w,a0            | fpu address
  1796. +     lea    sp@(4),a1            | argptr
  1797. + 
  1798. +     movew    #0x5400,a0@(comm)        | fmoved -> fp0
  1799. + 1:    cmpw    #0x8900,a0@(resp)
  1800. +     beq    1b
  1801. +     movel    a1@+,a0@
  1802. +     movel    a1@+,a0@
  1803. + 
  1804. +     movel    a1@,a1                | get buf
  1805. +     movew    #0x6c11,a0@(comm)        | fmovep fp0,a1@{#17}
  1806. + 1:    cmpw    #0x8900,a0@(resp)
  1807. +     beq    1b
  1808. +     movel    a0@,a1@+
  1809. +     movel    a0@,a1@+
  1810. +     movel    a0@,a1@+
  1811. +     rts
  1812. + ");
  1813. + #endif /* sfp004 */
  1814. +     
  1815. + static int
  1816. + cvt (number, prec, flags, signp, fmtch, startp)
  1817. +      double number;
  1818. +      int prec, flags, fmtch;
  1819. +      char *signp, *startp;
  1820. + {
  1821. +   char buf[12];
  1822. +   char digits[18];
  1823. +   int i;
  1824. +   char *p, *t;
  1825. +   int expcnt;
  1826. +   int gformat = 0, dotrim;
  1827. + 
  1828. +   /* Convert to packed decimal.  */
  1829. + #ifdef sfp004
  1830. +   Format (number, buf);
  1831. + #else
  1832. +   asm volatile ("fmovep %0,%1{#17}" : : "f" (number), "m" (buf[0]));
  1833. + #endif
  1834. +   /* Unpack it. */
  1835. +   p = buf + 3;
  1836. +   for (i = 0; i < 17; i++)
  1837. +     digits[i] = ((i & 1 ? *p >> 4 : *p++) & 15) + '0';
  1838. +   digits[i] = 0;
  1839. +   expcnt = ((buf[0] & 15) * 10 + ((buf[1] >> 4) & 15)) * 10 + (buf[1] & 15);
  1840. +   if (buf[0] & 0x40)
  1841. +     expcnt = -expcnt;
  1842. +   t = ++startp;
  1843. +   p = digits;
  1844. +   switch (fmtch)
  1845. +     {
  1846. +     case 'f':
  1847. +       if (expcnt >= 0)
  1848. +     {
  1849. +       *t++ = *p++;
  1850. +       while (expcnt > 0 && *p)
  1851. +         {
  1852. +           *t++ = *p++;
  1853. +           expcnt--;
  1854. +         }
  1855. +       while (expcnt > 0)
  1856. +         {
  1857. +           *t++ = '0';
  1858. +           expcnt--;
  1859. +         }
  1860. +     }
  1861. +       else
  1862. +     {
  1863. +       /* Note: decimal point after the first digit. */
  1864. +       expcnt++;
  1865. +       *t++ = '0';
  1866. +     }
  1867. +       if (prec || flags & ALT)
  1868. +     *t++ = '.';
  1869. +       while (prec > 0 && expcnt < 0)
  1870. +     {
  1871. +       *t++ = '0';
  1872. +       prec--;
  1873. +       expcnt++;
  1874. +     }
  1875. +       while (prec > 0 && *p)
  1876. +     {
  1877. +       *t++ = *p++;
  1878. +       prec--;
  1879. +     }
  1880. +       if (*p)
  1881. +     if (_round (*p, startp, t - 1, signp))
  1882. +       *--startp = '1';
  1883. +       while (prec > 0)
  1884. +     {
  1885. +       *t++ = '0';
  1886. +       prec--;
  1887. +     }
  1888. +       break;
  1889. + 
  1890. +     case 'e':
  1891. +     case 'E':
  1892. +     eformat:
  1893. +       *t++ = *p++;
  1894. +       if (prec || flags & ALT)
  1895. +     *t++ = '.';
  1896. +       while (prec > 0 && *p)
  1897. +     {
  1898. +       *t++ = *p++;
  1899. +       prec--;
  1900. +     }
  1901. +       if (*p)
  1902. +     if (_round (*p, startp, t - 1, signp))
  1903. +       {
  1904. +         expcnt++;
  1905. +         *startp = '1';
  1906. +       }
  1907. +       if (!gformat || flags & ALT)
  1908. +     {
  1909. +       while (prec > 0)
  1910. +         {
  1911. +           *t++ = '0';
  1912. +           prec--;
  1913. +         }
  1914. +     }
  1915. +       else
  1916. +     {
  1917. +       /* Suppress trailing zero's. */
  1918. +       while (t > startp && t[-1] == '0')
  1919. +         t--;
  1920. +       if (t[-1] == '.')
  1921. +         t--;
  1922. +     }
  1923. +       t = exponent (t, expcnt, fmtch);
  1924. +       break;
  1925. + 
  1926. +     case 'g':
  1927. +     case 'G':
  1928. +       if (prec == 0)
  1929. +     prec++;
  1930. +       /* If the exponent is not less than the precision or less than -4,
  1931. +      use 'e' format, otherwise use 'f' format.  */
  1932. +       if (expcnt >= prec || expcnt < -4)
  1933. +     {
  1934. +       /* Count the significant digit before the decimal point.  */
  1935. +       prec--;
  1936. +       /* 'g'/'G' -> 'e'/'E' */
  1937. +       fmtch -= 2;
  1938. +       gformat = 1;
  1939. +       goto eformat;
  1940. +     }
  1941. +       /* Like 'f', but prec counts significant digits.  */
  1942. +       if (expcnt >= 0)
  1943. +     {
  1944. +       *t++ = *p++;
  1945. +       prec--;
  1946. +       /* Note that prec >= expcnt */
  1947. +       while (expcnt > 0 && *p)
  1948. +         {
  1949. +           *t++ = *p++;
  1950. +           expcnt--;
  1951. +           prec--;
  1952. +         }
  1953. +       while (expcnt > 0)
  1954. +         {
  1955. +           *t++ = '0';
  1956. +           expcnt--;
  1957. +           prec--;
  1958. +         }
  1959. +     }
  1960. +       else
  1961. +     {
  1962. +       *t++ = '0';
  1963. +       expcnt++;
  1964. +     }
  1965. +       if (prec > 0 || flags & ALT)
  1966. +     {
  1967. +       dotrim = 1;
  1968. +       *t++ = '.';
  1969. +     }
  1970. +       else
  1971. +     dotrim = 0;
  1972. +       if (prec > 0)
  1973. +     /* Pad with 0's */
  1974. +     while (expcnt < 0)
  1975. +       {
  1976. +         *t++ = '0';
  1977. +         expcnt++;
  1978. +       }
  1979. +       /* While more precision required and digits left */
  1980. +       while (prec > 0 && *p)
  1981. +     {
  1982. +       *t++ = *p++;
  1983. +       prec--;
  1984. +     }
  1985. +       if (*p)
  1986. +     if (_round (*p, startp, t - 1, signp))
  1987. +       /* Overflow, e.g. 9.999 -> 10.000 */
  1988. +       *--startp = '1';
  1989. +       if (flags & ALT)
  1990. +     {
  1991. +       while (prec > 0)
  1992. +         {
  1993. +           *t++ = '0';
  1994. +           prec--;
  1995. +         }
  1996. +     }
  1997. +       else if (dotrim)
  1998. +     {
  1999. +       /* Strip trailing 0's. */
  2000. +       while (t > startp && *--t == '0');
  2001. +       if (*t != '.')
  2002. +         t++;
  2003. +     }
  2004. +       break;
  2005. +     }
  2006. +   return (int) (t - startp);
  2007. + }
  2008. + 
  2009. + static int
  2010. + _round (nxtdig, start, end, signp)
  2011. +      int nxtdig;
  2012. +      char *start, *end;
  2013. +      char *signp;
  2014. + {
  2015. +   if (nxtdig > '4')
  2016. +     {
  2017. +       for (;; --end)
  2018. +     {
  2019. +       if (*end == '.')
  2020. +         --end;
  2021. +       if (++*end <= '9')
  2022. +         break;
  2023. +       *end = '0';
  2024. +       if (end == start)
  2025. +         /* Report overflow, caller must handle appropriately.  */
  2026. +         return 1;
  2027. +     }
  2028. +     }
  2029. +   else if (*signp == '-')
  2030. +     {
  2031. +       for (;; --end)
  2032. +     {
  2033. +       if (*end == '.')
  2034. +         --end;
  2035. +       if (*end != '0')
  2036. +         break;
  2037. +       if (end == start)
  2038. +         *signp = 0;
  2039. +     }
  2040. +     }
  2041. +   return 0;
  2042. + }
  2043. + 
  2044. + #else /* !(__M68881__ || sfp004) */
  2045. + 
  2046.   static int
  2047.   cvt(number,prec,flags, signp, fmtch, startp, endp)
  2048.       double number;
  2049. ***************
  2050. *** 777,782 ****
  2051. --- 1104,1111 ----
  2052.       return(start);
  2053.   }
  2054.   
  2055. + #endif /* !(__M68881__ || sfp004) */
  2056. + 
  2057.   static char *
  2058.   exponent(p, exp, fmtch)
  2059.       register char *p;
  2060. ***************
  2061. *** 807,810 ****
  2062.       }
  2063.       return(p);
  2064.   }
  2065. ! #endif __FLOATS__
  2066. --- 1136,1139 ----
  2067.       }
  2068.       return(p);
  2069.   }
  2070. ! #endif /* __FLOATS__ */
  2071. ===================================================================
  2072. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fflush.c,v
  2073. retrieving revision 1.11
  2074. diff -c -r1.11 fflush.c
  2075. *** 1.11    1991/07/23 22:06:28
  2076. --- fflush.c    1993/02/18 00:00:21
  2077. ***************
  2078. *** 44,50 ****
  2079.           return(0);
  2080.       f = fp->_flag;
  2081.         if (!(f & (_IORW | _IOREAD | _IOWRT)))  /* file not open */
  2082. !         return(0);
  2083.       if(fp->_cnt > 0)             /* data in the buffer */
  2084.           {
  2085.             if(f & _IOWRT)                /* writing */
  2086. --- 44,50 ----
  2087.           return(0);
  2088.       f = fp->_flag;
  2089.         if (!(f & (_IORW | _IOREAD | _IOWRT)))  /* file not open */
  2090. !         return(EOF);
  2091.       if(fp->_cnt > 0)             /* data in the buffer */
  2092.           {
  2093.             if(f & _IOWRT)                /* writing */
  2094. ===================================================================
  2095. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fread.c,v
  2096. retrieving revision 1.15
  2097. diff -c -r1.15 fread.c
  2098. *** 1.15    1992/12/18 16:35:48
  2099. --- fread.c    1993/02/20 05:51:59
  2100. ***************
  2101. *** 120,125 ****
  2102. --- 120,126 ----
  2103.             ptr = data + cnt;
  2104.           cnt -= ptr - data;
  2105.           n -= ptr - data;
  2106. +         l += ptr - data;
  2107.           data = ptr;
  2108.           while( cnt>0 ) {
  2109.               if( *ptr!='\r' ) {
  2110. ===================================================================
  2111. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/getpass.c,v
  2112. retrieving revision 1.2
  2113. diff -c -r1.2 getpass.c
  2114. *** 1.2    1992/10/09 20:35:29
  2115. --- getpass.c    1993/02/22 06:15:12
  2116. ***************
  2117. *** 2,28 ****
  2118.   #include <stdio.h>
  2119.   #include <unistd.h>
  2120.   #include <string.h>
  2121.   
  2122.   char *
  2123.   getpass(prompt)
  2124.       const char *prompt;
  2125.   {
  2126. !     static char buf[81];
  2127.           char *ret;
  2128.       struct sgttyb oldsb, newsb;
  2129.   
  2130.       fflush(stdin);
  2131. !     gtty(0, &oldsb);
  2132.       newsb = oldsb;
  2133.       newsb.sg_flags &= ~ECHO;
  2134. !     stty(0, &newsb);
  2135. !     fputs(prompt, stderr); fflush(stderr);
  2136. !     buf[0] = buf[81] = 0;
  2137. !     if((ret = fgets(buf, 80, stdin)) != 0)
  2138.       {
  2139. !         /* null terminate string */
  2140.           buf[strlen(buf) - 1] = 0;
  2141.       }
  2142. !     stty(0, &oldsb);
  2143.       return ret;
  2144.   }
  2145. --- 2,43 ----
  2146.   #include <stdio.h>
  2147.   #include <unistd.h>
  2148.   #include <string.h>
  2149. + #include <limits.h>
  2150.   
  2151. + extern int __mint;
  2152. + 
  2153.   char *
  2154.   getpass(prompt)
  2155.       const char *prompt;
  2156.   {
  2157. !     static char buf[PASS_MAX + 1];
  2158.           char *ret;
  2159.       struct sgttyb oldsb, newsb;
  2160. +     FILE *tty;
  2161. +     int ttyfd = 0;
  2162.   
  2163.       fflush(stdin);
  2164. !     tty = stdin;
  2165. !     if (__mint) {
  2166. !         if ((tty = fopen("U:\\DEV\\TTY", "r")) == NULL)
  2167. !             return NULL;
  2168. !     }
  2169. !     ttyfd = fileno(tty);
  2170. !     fflush(tty);
  2171. !     gtty(ttyfd, &oldsb);
  2172.       newsb = oldsb;
  2173.       newsb.sg_flags &= ~ECHO;
  2174. !     stty(ttyfd, &newsb);
  2175. !     fputs(prompt, stderr);
  2176. !     fflush(stderr);
  2177. !     if ((ret = fgets(buf, PASS_MAX + 1, tty)) != 0)
  2178.       {
  2179. !       /* zap the newline */
  2180. !       if (buf[strlen(buf) - 1] == '\n')
  2181.           buf[strlen(buf) - 1] = 0;
  2182.       }
  2183. !     stty(ttyfd, &oldsb);
  2184. !     if (__mint)
  2185. !         (void) fclose(tty);
  2186.       return ret;
  2187.   }
  2188. ===================================================================
  2189. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/getuid.c,v
  2190. retrieving revision 1.9
  2191. diff -c -r1.9 getuid.c
  2192. *** 1.9    1992/09/14 14:56:40
  2193. --- getuid.c    1993/02/18 00:00:27
  2194. ***************
  2195. *** 28,34 ****
  2196.   
  2197.       if (__mint) {
  2198.           r = Psetuid(x);
  2199. !         if (r) {
  2200.               errno = (int) -r;
  2201.               return -1;
  2202.           }
  2203. --- 28,34 ----
  2204.   
  2205.       if (__mint) {
  2206.           r = Psetuid(x);
  2207. !         if (r < 0) {
  2208.               errno = (int) -r;
  2209.               return -1;
  2210.           }
  2211. ***************
  2212. *** 45,51 ****
  2213.   
  2214.       if (__mint) {
  2215.           r = Psetgid(x);
  2216. !         if (r) {
  2217.               errno = (int) -r;
  2218.               return -1;
  2219.           }
  2220. --- 45,51 ----
  2221.   
  2222.       if (__mint) {
  2223.           r = Psetgid(x);
  2224. !         if (r < 0) {
  2225.               errno = (int) -r;
  2226.               return -1;
  2227.           }
  2228. ===================================================================
  2229. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/regexp.c,v
  2230. retrieving revision 1.6
  2231. diff -c -r1.6 regexp.c
  2232. *** 1.6    1992/11/06 23:02:09
  2233. --- regexp.c    1993/02/18 00:00:30
  2234. ***************
  2235. *** 32,38 ****
  2236.   #include <string.h>
  2237.   #include <regexp.h>
  2238.   #include <stdio.h>
  2239. ! #include <sys/types.h>
  2240.   #ifndef _COMPILER_H
  2241.   #include <compiler.h>
  2242.   #endif
  2243. --- 32,42 ----
  2244.   #include <string.h>
  2245.   #include <regexp.h>
  2246.   #include <stdio.h>
  2247. ! #ifdef __TURBOC__
  2248. ! # include <sys\types.h>
  2249. ! #else
  2250. ! # include <sys/types.h>
  2251. ! #endif
  2252.   #ifndef _COMPILER_H
  2253.   #include <compiler.h>
  2254.   #endif
  2255. ===================================================================
  2256. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strlwr.c,v
  2257. retrieving revision 1.1
  2258. diff -c -r1.1 strlwr.c
  2259. *** 1.1    1989/03/19 22:30:52
  2260. --- strlwr.c    1993/02/18 00:00:32
  2261. ***************
  2262. *** 1,15 ****
  2263.   #include <ctype.h>
  2264.   
  2265.   char *strlwr(string)
  2266. !     register char *string;
  2267. !     {
  2268. !     register char *p = string;
  2269.   
  2270. !     while(*string)
  2271. !         {
  2272. !         if(isupper(*string))
  2273. !             *string ^= 0x20;
  2274. !         ++string;
  2275. !         }
  2276. !     return(p);
  2277. !     }
  2278. --- 1,18 ----
  2279.   #include <ctype.h>
  2280.   
  2281.   char *strlwr(string)
  2282. ! register char *string;
  2283. ! {
  2284. !     register char *p = string;
  2285.   
  2286. !     if(p) 
  2287. !     {
  2288. !         while(*string)
  2289. !         {
  2290. !             if(isupper(*string))
  2291. !                 *string ^= 0x20;
  2292. !             ++string;
  2293. !         }
  2294. !     }
  2295. !     return(p);
  2296. ! }
  2297.